(post-mail-send-it): Use temporary-file-directory.

diff --git a/lisp/mail/mailpost.el b/lisp/mail/mailpost.el
index 91998a1bb722e337837bc6a033d7e2fc69cb9629..2bb5764948b2e199e31246a891a9434ad7e592b4 100644 (file)
--- a/lisp/mail/mailpost.el
+++ b/lisp/mail/mailpost.el
@@ -28,7 +28,7 @@ site-init."
   (let ((errbuf (if mail-interactive
                    (generate-new-buffer " post-mail errors")
                  0))
-       (temfile "/tmp/,rpost")
+       (temfile (expand-file-name ",rpost" temporary-file-directory))
        (tembuf (generate-new-buffer " post-mail temp"))
        (case-fold-search nil)
        delimline